home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / fast.s < prev    next >
Text File  |  1991-11-23  |  1KB  |  56 lines

  1. *****************************************************************************
  2. * Modulname:    FAST
  3. * Modultype:    Secondary
  4. * Dest.Comp.:    HP48
  5. * Language:    System RPL
  6. * Author:    Detlef Mueller,Nibelungenweg 6,2000 Hamburg 56,W-Germany
  7. * Interface:    FAST    ( ob --> )
  8. * Description:    Execute <ob> with display off. Exec. time saving of ~11% .
  9. * Edition History :
  10. *    1.000    09-05-1991    DM    Release
  11. *      001    09-26-1991    DM    add CleanDispOff, evaluation more
  12. *                    close to user EVAL
  13. *****************************************************************************
  14.  
  15.     TITLE    Fast
  16.  
  17. ASSEMBLE
  18.     NIBASC    /HPHP48-E/
  19.  
  20. CleanDispOff    EQU    #01D44
  21.  
  22. RPL
  23.  
  24. ::
  25.     CK1NoBlame
  26.     CODE
  27.     GOSBVL    =SAVPTR
  28.     GOSBVL    =DisableIntr
  29.     GOSBVL    =CleanDispOff
  30.     GOSBVL    =AllowIntr    * Comment this line at you own risc !
  31.     GOVLNG    =GETPTRLOOP
  32.     ENDCODE
  33.     ERRSET
  34.     ::    CK&DISPATCH0
  35.         symb    COMPEVAL
  36.         list    COMPEVAL
  37.         ZERO    EVAL        ( *Any object* )
  38.     ;
  39.     ERRTRAP
  40.     ::
  41.     CODE
  42.     GOSBVL    =SAVPTR
  43.     GOSBVL    =DispOn
  44. ***    GOSBVL    =AllowIntr    * Uncomment this line at you own risc !
  45.     GOVLNG    =GETPTRLOOP
  46.     ENDCODE
  47.     ERRJMP
  48.     ;
  49.     CODE
  50.     GOSBVL    =SAVPTR
  51.     GOSBVL    =DispOn
  52. ***    GOSBVL    =AllowIntr    * Uncomment this line at you own risc !
  53.     GOVLNG    =GETPTRLOOP
  54.     ENDCODE
  55. ;
  56.